home *** CD-ROM | disk | FTP | other *** search
/ Material Dictionary 8 / Material Dictionary 8.iso / sozai.exe / sozai.DXR / 00033.ls < prev    next >
Encoding:
Text File  |  1996-01-05  |  1.3 KB  |  35 lines
  1. on mouseDown
  2.   global scrolltop
  3.   set w to the width of sprite the clickOn
  4.   set p to the mouseH - the left of sprite the clickOn
  5.   set l to the clickOn - 20
  6.   set n to ((scrolltop + l) * 5) + (p * 5 / w) + 1
  7.   set drv to char 1 of the pathName & ":\"
  8.   set the locH of sprite 19 to the left of sprite the clickOn + (p * 5 / w * 108) + 2
  9.   set the locV of sprite 19 to the locV of sprite the clickOn - 2
  10.   updateStage()
  11.   if not (the shiftDown) then
  12.     set ppath to item 1 of line 1 of the text of cast "Folders"
  13.     set pext to item 2 of line 1 of the text of cast "Folders"
  14.   else
  15.     set ppath to item 1 of line 2 of the text of cast "Folders"
  16.     set pext to item 2 of line 2 of the text of cast "Folders"
  17.   end if
  18.   set pname to line n of the text of cast "FilesList"
  19.   if the number of items in pname = 2 then
  20.     set apathname to item 1 of pname && "-" && item 2 of pname & pext
  21.   else
  22.     set apathname to drv & ppath & pname & pext
  23.   end if
  24.   set the text of cast "FilePath" to apathname & " "
  25.   set the selStart to 0
  26.   set the selEnd to length(apathname)
  27.   if the controlDown and (the number of items in pname = 1) then
  28.     if not (the shiftDown) and not (the optionDown) then
  29.       open(apathname, "pbrush")
  30.     else
  31.       open(apathname, "photoshp")
  32.     end if
  33.   end if
  34. end
  35.